;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
(DEFUN C:ADDBREAKLINES ()
  (SETQ blplss (SSGET '((0 . "POLYLINE")(8 . "BREAKLINE*"))))
  (SETQ blplcnt 0)
  (WHILE (< blplcnt (SSLENGTH blplss))
    (SETQ thisplent (SSNAME blplss blplcnt))
    (COMMAND "ADDSURFACEBREAKLINES" thisplent "")
    (SETQ blplcnt (1+ blplcnt))
  )
)